#!/usr/bin/perl
#This is simple test for open file
open(INFO,"+<learnperl.pl")||die("ko the? mo duoc. file");#mo? file learnperl.pl o? che' do. doc. va ghi("+<","+>")
while(<INFO>){
	print $_;#doc. tung` dong` va` chu' y' la` van~ con` \n, muon' xoa' ky' tu. xuong' dong` dung` ham` duoi' day
	chomp;
}
close(INFO);#dong' INFO doc.
